home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2000 #5
/
Amiga Plus CD - 2000 - No. 5.iso
/
t
/
avi.gc.bak.1
< prev
next >
Wrap
Text File
|
2000-01-01
|
1KB
|
79 lines
G4C
Varpath "avi.gc/prefs.gc"
WinBig -1 -1 403 150 "Amiga Plus Prefs (C) by Markus Castro"
WinType 11010000
WinFont Times.font 15 000
;Screen Prefs
xOnload
indeo = 1
XOnclose
guiclose avi.gc
xonactive
changeimage avi.gc 4 -1 -1 avi2
playsound 0
xoninactive
changeimage avi.gc 4 -1 -1 avi1
Image 10 10 avi21
gadid 1
Image 50 50 avi12
gadid 2
Image 20 95 avi13
gadid 3
Image 300 25 avi2
gadid 4
Text 154 3 300 18 'Bitte AVI Abspieler wählen:' 27 NOBOX
xRADIO 154 25 18 18 indeo 5
GadTitle right
RSTR MooviD 1
RSTR CyberAVI 2
RSTR "SoftCinema (PPC)" 3
RSTR "" 4
playsound plop
changeimage avi.gc 1 -1 -1 avi11
changeimage avi.gc 2 -1 -1 avi12
changeimage avi.gc 3 -1 -1 avi13
if $indeo < 4
changeimage avi.gc $indeo -1 -1 avi2$indeo
endif
xTEXTIN 175 79 200 18 "" eigener6 "" 255
gadid 5
xButton 380 79 20 18 "_F"
CLI 'Requestfile TITLE "Bitte Abspieler wählen:" DRAWER APCD:a+tools/avi >env:APCDFiles5'
dummys = $..apcdfiles6
cutvar dummys cut char -1 dummy
cutvar dummys cut char 1 dummy
eigener6 = $dummys
update avi.gc 5 $eigener6
xbutton -1 127 50 20 "O.k."
DOCASE $indeo
Case = 1
avi = "apcd:a+tools/avi/MooviD"
avi2 = "Moovid"
BREAK
Case = 2
avi = "apcd:a+tools/avi/cyberavi"
avi2 = "Cyberavi"
BREAK
Case = 3
avi = "apcd:a+tools/avi/Softcinema"
avi2 = "SoftCinema"
BREAK
Case = 4
avi = $eigener6
avi2 = $eigener6
BREAK
Endcase
update prefs.gc 7 $avi2
Guiclose avi.gc